home *** CD-ROM | disk | FTP | other *** search
/ PCGUIA 2010 Software/Programs / PCGuia_programas.iso / Software / Utils / The GIMP / gimp-2.6.8-i686-setup.exe / {app} / share / gimp / 2.0 / scripts / plug-in-compat.init < prev    next >
Encoding:
Text File  |  2009-12-15  |  1019 b   |  25 lines
  1. ; The Scheme code in this file provides some compatibility with
  2. ; scripts that were originally written for use with older versions of
  3. ; GIMP.
  4. ;
  5. ; It provides PDB procedures that used to be provided by plug-ins that
  6. ; were since then removed from the GIMP distribution. You should not
  7. ; use these in newly written scripts as the functions defined here may
  8. ; be removed at some later date.
  9.  
  10.  
  11. (define (plug-in-color-map run-mode img layer
  12.                src-color-1 src-color-2 dest-color-1 dest-color-2
  13.                map-mode)
  14.   (gimp-levels layer HISTOGRAM-RED
  15.            (car src-color-1) (car src-color-2) 1.0
  16.            (- 255 (car dest-color-1)) (- 255 (car dest-color-2)))
  17.   (gimp-levels layer  HISTOGRAM-GREEN
  18.            (cadr     src-color-1) (cadr src-color-2) 1.0
  19.            (- 255 (cadr dest-color-1)) (- 255 (cadr dest-color-2)))
  20.   (gimp-levels layer HISTOGRAM-BLUE
  21.            (caddr src-color-1) (caddr src-color-2) 1.0
  22.            (- 255 (caddr dest-color-1)) (- 255 (caddr dest-color-2)))
  23.   (gimp-levels layer HISTOGRAM-VALUE 0 255 1.0 255 0)
  24. )
  25.